﻿Public Class clsPgdMesGt
    Public Function getList(mis_name As String, startTime As String, endTime As String) As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT a.*,b.jp_layer_num,b.mould_no,b.prod_spec_name FROM sf.b_gt_pgd_mes a "
        szSql &= " left join sf.t_prod_spec b on a.support_model = b.prod_spec_id "
        szSql &= " where 1 = 1 "
        szSql &= "  and a.oper_type = ?"
        If mis_name <> "" Then
            szSql &= " and a.mes_project_name like ?"
        End If
        If startTime <> "" Then
            szSql &= "  and a.oper_date >= ?"
        End If
        If endTime <> "" Then
            szSql &= "  and a.oper_date <= ?"
        End If
        szSql &= "  ORDER BY a.oper_date ASC"
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "0", mis_name, startTime, endTime)
        Return dt
    End Function
End Class
